home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / music / protracker / src.lzh / periodtable.bas < prev    next >
BASIC Source File  |  1991-12-18  |  578b  |  42 lines
  1. 'PeriodTable:
  2. ' dc.w 856,808,762,720,678,640,604,570,538,508,480,453
  3. ' dc.w 428,404,381,360,339,320,302,285,269,254,240,226
  4. ' dc.w 214,202,190,180,170,160,151,143,135,127,120,113
  5. ' dc.w 0
  6.  
  7. DEFDBL a-s
  8.  
  9. INPUT "tuning";n
  10. a = 2^(1/12)
  11. b = a^(n/8)
  12.  
  13. PRINT a,b
  14. PRINT
  15.  
  16.  
  17. fclk = 4433618.75#*1.6
  18. pclk = (1/fclk)*2
  19.  
  20. GOTO loop
  21. fr=258.9731 * b
  22. FOR g=0 TO 36
  23.    per = 1/fr/pclk
  24.    PRINT g;fr,per/16
  25.    fr = fr * a
  26.    IF INKEY$<>"" THEN
  27. abc:
  28.      IF INKEY$="" THEN abc
  29.    END IF
  30. NEXT
  31.  
  32. loop:
  33. INPUT "period";t
  34. xx=1/(t*pclk)
  35. yy=1/(xx*b)/pclk
  36. zz=1/(yy*pclk)
  37.  
  38. PRINT xx, xx/16, yy, zz/16
  39.  
  40. GOTO loop
  41.  
  42.